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BAS$10_BEG 16-Sep-1984 9: AX-11 Bliss-32 v4.0 Page 
ease }S8e FY gai 7 HANSA Ob iege Re Mee0-263 . 

3 1 001 MODULE BAS$IO_BEG ( ! pasic READ/WRITE state none initialization user calls 

: ¢ 000 wee "1-057" i File: BASIOBEG.832 Edit MDL105? 

; é 0004 1 BEGIN 

: § Boog ; es ee er rt ee mame’ 

3 '® ® 

s 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 

; 3 0009 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 

3 19 BR9 : i. ALL RIGHTS RESERVED. * 

° ; 

3 \ borg 1 Ie ints FOF TUARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND copieD * 

eS 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH biCCNSE AND WITH THE * 

; 0014 1 !* INCLUSION OF THE ABOVE serra reel NOTICE. THIS SOFT ANY OTHER * 

s 15 0015 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE. AVAILABLE TO ANY * 

: 16 B28 1 !'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: + EA : :* TRANSFERRED. * 

; '* ® 

$ 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $i} One) : ‘ed CORPORATION. * 

° ,@ * 

; $i ie 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR + Splemmmomeaii OF ITS * 

: 4 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 

ws 0025 1 !« * 

; @& p06 1 !e * 

3 o7 (WYME MR TTI TTT Tei i iit TITITTITT TIT T ITI TTI TIT TTT TTI TTT TTTiLTiiTiiititit 

; a 0028 1 

; @& 0029 1 !+¢4 

: $ o030 : } FACILITY: BASIC + 2 Support Library - User callable 

: 32 0052 1 | ABSTRACT: 

i 2 0033 1! 

ae. 0034 1! This module Solus BAS$IO_ELM and GASS10_ END modules) 

; 3 0035 1! implements BASIC READ/WRITE (INPUT 

4 36 0036 1! and PRINT) statements at the user iy ye interface level 

oo a 0037 1! 7 abstraction. (UPI = first level o implement 

a! 0038 1! single 1/0 statement a user program calls one of the 

5 WW 0039 1! initislization routines in hey module followed by zero 

:; 40 0040 1! or more calls to be BASSIO_ELM module and terminated by 

3s 661 0041 1! call to the BAS$IO_END module. This module also det ines the 

3 43 0042 1! vectors for the 2nd and 3rd levels of abstraction (used 

3 re ORe7 ' data formatters (UDF) and record processors (REC). 

; rs Ohee ' ; ENVIRONMENT: User access mode; mixture of AST level or not. 

: 47 0047 AUTHOR: Donald G. Petersen, CREATION DATE: 14-Mar-78: Version 01 

: 49 0049 1 | MODIFIED BY: 

; = 0050 1! 

$ 51 0051 1 ! 0-37 = Don't set the record number into LOG_RECNO until after OPEN, 

§ 26 8236 1! since OPEN sets it to 1. T -Jan=7 

, § 00535 1! Donald G. Petersen, 14-Mar-78 : VERSION 1-01 

; + 0054 1! 91 - original 

s $5 B32 1! ; - debug. DGP 06-Jun-78 1430 

; 3 026 1!9@ = change dispatch tables to OWN storage. DGP te he oe 1530 

a OF 0057 1! 1-04 = Make PRINT and INPUT logical unit Nos. - 2. DGP 07-Jun-78 
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nt buffer pointer to BU =BE6 if contents are transferred 
to the Prompt put Ter. DGP 24-Jan-79 
1-024 = Clear ISBSW_FMT_LEN, so IO_END will not ery te to poet locate 
a supposed object-time fofmat. JBS 12-MA 
1-025 - ~ 4 " in BUDDY_PTR assignment on cane yp! a DGP 05-Apr-79 
6 S gee for a terminal device before doing Prompt business. 


1-027 - Use BASS SOPEN ZERO to open chennes an instead of calling 
BASSSOPEN_DEFLT twice. JBS 17-APR-1979 

1-028 = Store addréss of start of 1/0 tht in ISBSA_RESTARTPC_so 
that 1/0 statements can be restarted. JBS 07-MAY-1979 

1-029 = Add Basic PRINT USING. DGP 14-May- 

-030 - Make a few more changes for PRINT USING. DGP 21-May-79 

-031 - Correct a typo in . i USING that made all 1/0 
stateménts fail. S$ 22-MAY-1979 

- init hot ‘gs ISBSW LEN” REM. DGP 22-May-79 

- Add MAT PRINT. BGP 15-Jun-79 

4 - Use Language-speci fic diasateh tables. JBS eo" dais 

5 = Check t anguage byte in the LUB to ua A hat 

the file was eeened by BA sit. JBS 30-J 979 

§ - Use ISB symbols for dispatching. JBS 12-JUL-1979 

8 

9 


14-Sep-19 BASRTL.SRCJBASIOBEG.B832;1 
! 1-05 = change to JSB Linkages. DGP 14-N 
! 1- $ - phenge names of require files. DEP “28 v-78 
} 1-007 - — pongs te to Bn ae files and aaete copyright 
! 1-008 = Change call to OPEN DEFLT. Remove dg i | ° pitas DGP 04-Dec-78 
! 1-397 - Change require of BRSOPN © FOROPN 
! 1-010 = Change REQUIRE file names “tres POR eet to fees "eas 06-DEC-78 
1-011 - a tne atenent types passed by the UPI to conform with new 
‘ ° 7-Dec- 
! 1-012 = Change ptatenent t pes_to ISB prefix. DGP 08-Dec-78 
i 4x18 = Aga Readee see a-bec ” ad 
' 1-014 = Modif ye module xo Si grwete primitive BLISS argument passing 
4 techniques. DGP 1 
! 1-015 = Add some more oP i READ. DGP 19-Dec-78 
1-016 - change | 2 to CB_PUSH to pass ILUN_MIN instead of DLUN_MIN. DGP 
. = e 
! 1-017 = Change call to FORSSCB tie ge call yas ‘ex * p88 29-DEC-78 
! 1-018 = Change ISBSA_BUF_PTR, BUF_BEG, BUF_END to st 98: P 05-Jan-79 
! 1-019 = Remove REQUIRE UOT B ASPARe Sees needed. JBS 1O2JANC) 1979 
! 1-020 - fix to signal MO channel not open logic. DGP 10-Jan=79 
! 1-021 - Ry code to BASSINPUT to handle © progoting and ‘dirty’ Print buffers 
! in rpcurs ive 1/0 situations. 3-Jan-79 
! 1-06 - Fix bug n buddy pointer poke teen: DGP 19-Jan-79 
} 1-025 = Reset Pri 
} 
i 
i 
i 
i 
i 
} 
i 
; 


= Add BASSMAT_READ, pace T “LINP T. DGP 13-Jul-79 

- Remove edit “0 rhe he Language check is now being done 
in BAS$$CB. jas. at 

- Store caller's FP in the ISB, so we cen call BAS$$CB_POP 
after an 1/0 error awd BASSSUNWIND) . and do not depend 
on inheriting R11. JBS 24-JUL-1979 

1-040 - Change call to B BAS$SOPEN ZERO. JBS 26-JUL-1979 

1-041 = Remove the reference to BASS$SIGDIS_ERR. JBS 01-AUG-1979 

! 1-042 - bor brek butter grneck now checks for Print Using as well as Print 


DGP 01-Aug-7 
1-043 - These 1/0° statements, gre ieee qonly on terminal format and 
sequential files. S QI-A 


ee a ee ee ee ee me ee ee ed ed ed ed ed ed od 
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1-044 = Improve edit 043 by cles UGasy -NOTSEQORG. JBS 08-JUL-1979 
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MAT_PRINT now poseve unit number ck value. DGP 06-Sep-79 

Check for VIRTUAL usage. 5et eee sage. PRINT and. others Like 
t check for READONLY. DGP Sep-7 

Use the Ath | statement ak. “for MAT READ and MAT LINPUT. 


DGP 10- 

- Stuff the scale factor 4 a vn ise DGP 57 errr? 

- Use new name ISB$B_SCA_FAC_D. P 26-Nov-7 

t? " yt pnd Prige only "my che -6 to 6° scale factor in the 
Nov-79 

ets che rint act character flag if moving it into the prompt 

buffer. pep 10 cn95 ° ° ——s 


Clear haps Peay e LUBSL_PRINT_POS in BAS$S$IO_BEG to cure the problem of 
concatenating to the prompt buffer the same prompt in case of 
“C trapping and resume to that ae ee statement. 
At the same time we have taken out the 
statement in PUSH_ACTIVE routine thet clears this byte to keep 
the Locality consTstent. FM 4-SEP-1980 
Check for negative channel numbers etsy from compiled code in every 
cousins. except BASSMAT_READ and BASS_READ, if found signal ILLIO_CHA. 
Cursor position is not updated properly on INPUT if the previous 
PRINT terminator was a semicolon or comma. PLL 77-May-81 
Add support for ANSI INPUT. PLL 22-Jul-1982 
a $s3ib° EG for ANSI PRINT. MDL 11-Apr-1983 

BEG ir BUF _PTR to BUF_BEG only if this is a terminal 
Sesices This allows the REC level routine to write the contents 
of the Print buffer to the batch log, thus simulating prompts. 
MDL 27-Jul-1983 
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; SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = 


; LINKAGES 


REQUIRE ‘RTLIN:OTSLNK'; 
REQUIRE "RTLIN:BASLNK'; 


TABLE OF CONTENTS: 


ong ROUTINE 


ASSMAT_LINPUT : NOVALUE, 
BASSMAT_READ : NOVALUE 
BASSMAT-INPUT : NOVALUE, 

ASSMAT-PRINT : NOVALUE, 
BASSPRIRT_USING : NOVALUE, 

SSREAD = NOVALUE, 
BASSLINPUT : NOVALUE, 
BASSINPUT_LINE : NOVALUE, 

SINPUT E, 
BASSANSI_INPUT : NOVALUE, 
BASSPRINT : . 
BASSANSI_P PRINT : NOVALUE, 
BAS$$10_BEG : NOVALUE; 


INCLUDE FILES: 


REQUIRE "RTLML:OTSLUB'; 
REQUIRE ‘RTLML:OTSISB’; 
REQUIRE *RTLIN:OTSMAC’; 
REQUIRE ‘RTLIN:RTLPSECT’; 
REQUIRE ‘RTLIN:BASFRAME'; 
LIBRARY ‘RTLSTARLE'; 


MACROS: 

: NONE 

: EQUATED SYMBOLS: 
NONE 


AX-11 Bliss-32 V4.0 


. 8 
er eeen i 8be $i8aiF? = HAKSAT Ok degaze Meee 


GENERAL, NONEXTERNAL = WORD_RELATIVE); 


efine all Linkages 
! Some Basie specific Linkages 


MAT LINPUT 
MAT READ 
MAT em 


MAT PRINT 

PRINT USING 

READ data 

READ (LINPUT) 

READ (INPUT LINE) 

READ sequential list-directed 
same as INPUT, but ANSI standard 


WRITE sequential list-directed 
same as PRINT, but ANSI standard 


logical unit block (LUB) offsets 


Macros 
Define DECLARE_PSECTS macro 
BASIC frame structure 


STARLET macros and symbols 


1/0 statement block (ISB) offsets 


=74 Page 4 
“03351 9 023 


Common routine for all 1/0 statements 


8 
tapi Yecgeer 1984 O0:59:25  YaRCHY SL tsg=82 was O-7eg 
| PSECT DECLARATIONS: 
DECLARE _PSECTS (BAS); 
{own STORAGE : 
! NONE 


EXTERNAL REFERENCES: 


EXTERNAL LITERAL 
BAS 


SK_ILLILLACC : UNSIGNED (8), ! IlLlogical or ‘Uleget access 
ASS$K_IO_CHANOT : UNSIGNED (8), ! 1/0 channel not open 
BASSK_TERFORFIL : UNSIGNED (8), ! Terminal format file required 
BASSK_ILLIO_CHA : UNSIGNED (8); ! Illegal 1/0 channel 


MOPUROROROPUPOPonononsnoronononornenr 
Sausae 


WN AAAI AAI AIR PO POPPIN NINUNNY 2 9 SO Oe 


hie hit @ 


WAAR PIPOPIPUNOPUNINIDD 2 2 2 SS S| DOODOOCOO 


a kk kk a 
AME WN (OOD NAUSWN OOO NAUEWIN (OOD NOAU EWN OOONOUE UT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 ASS 
1 BAS$$CB_POP : JSB CB POP NOVALUE, 
1 NOVALOE, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


2 SSSCALE_L BASSSCALE_JSB, ' Fetch the scale factor 

2 BASSSSCALE “ky®! : BASSS SCALE ' Fetch a scale factor 

2 BAS $CB_PUSH : JSB_CB PUSA NOVALUE, ' Load register CCB 

2 ! Done with register CCB 

2 BASSSSTOP_10. : ! Signal a fatal BASIC 1/0 error 
2 BASSSOPEN_ZERO 7 NOVALUE, ! Open shament zero. 

§ BASSS$STOP”: NOVALUE; ! Signal a fatal error. 
2 5 '¢ 
§ : User data formatter level of abstraction (UDF is 2nd level) 
2 53 
2 53 EXTERNAL 
§ 33 BASSSAA_UDF_PRO : VECTOR; ! Dispatch table for UDF Level 
2 53 '¢ 
$2p 23 : This value, if in O(FP), marks the frame as a BASIC frame. 

41 53 

¢g 54 EXTERNAL 

4 3 BASSHANDLER; 

44 4 

45 54 LITERA 

46 54 K “PRE COM_FLAG = 1, ! if set pre-compiled PRINT USING string 
of 2¢ K_ANST_FLAG = 2; ! if set ANSI error checking 


——————_-------—-—-—— 


apes ier: 


3c 99:55:17 EBASmtucSReSeasi00€G-039; 1 met 
' 


'¢ 
: If channel number is less than zero then it is an illegal channel. 


IF ( .UNIT LSS 0 ) THEN BASSS$STOP(BASSK_ILLIO_CHA); 


'¢ 

! Perform default OPEN if UNIT not already opened. 

! Check for agreper mixing of 1/0 statements. SIGNAL_STOP 
tore 1/0 statement type code. Call 

level initialization. 


BAS$$10 BFS (ISBSK_ST_TY_LIN, CIF (.UNIT EQL 0) THEN LUBSK_LUN_INPU ELSE .UNIT), .FMP CSFSL_SAVE_FP), 
-FMP CSFSL_SAVE_PTI); 


SESESSESSESFS 


4 ant errors. 
: UD 


: 0 1547 1 GLOBAL ROUTINE BASSLINPUT ( ' READ sequential List-directed 
: 1 1548 1 NIT ! Logical unit 
: ; 1549 1 ) : NOVALUE = 

3 1550 1 

: 4 1551 1 !e4 

H 5 1 26 1 ! ABSTRACT: 

3 6 1 1! 

; 257 1554 1! Initialize the BASIC 1/0 system to perform 
: rh 132? ; a READ sequential list-directed. 

; of 1337 ! : FORMAL PARAMETERS: 

; o¢ 1886 , : UNIT. rl.v logical unit number 
5 1560 1! 

; 2646 1561 1°! IMPLICIT INPUTS: 

; 265 1306 1! 

; 266 1565 1! NONE 

; 267 1564 1! 

; 68 1565 1 ! IMPLICIT OUTPUTS: 

; 269 1298 1! 

; 270 1567 1! NONE 

2 ae 1568 1! 

: if 1298 1 ! ROUTINE VALUE: 

: 7 1570 1! 

3; 276 1571 1! NONE 

; 275 1376 1! 

: ev 1575 1 ! SIDE EFFECTS: 

. 2 1574 1! 

3 78 1575 1! LUB/ISB/RAB control blocks allocated and file 
; 279 1376 1! opened if not already. SIGNAL_STOPs many errors. 
; 280 1577 1 !== 

: 281 1578 1 

; Ht 1579 BEGIN 

3; 1580 

; «2846 1581 BUILTIN 

; 285 1386 FP; 

3; 286 15 

3: 287 15 LOCAL 

3 88 15 FMP : REF BLOCK C, BYTE); 

; 289 15 

s 90 15 FMP = .FP; 

: 15 

3 3 

3 13 

: 15 

3 15 

3 15 

: 15 

: 15 

; 15 

: 1598 

3 15 

3 1 

3 1 


S33 


——- ---- - 7 


& 
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TETLe RASS10 BEG 


R 
L410 
LE-RT, BASSSCB_ PUSH 
“EX efor p’ bacesstocy 
SEXTRN BASSSOPEN ORO BASsSsTOP 
-EXTRN BASS$SAA_UDF PRO 


~EXTRN BASSHANDLER™ 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


000¢ 00000 .ENTRY BASSLINPUT, Save R2.R3 : 1547) 
52 5D 00 90002 MOVL : 1587, 
5 04 AC DO 0000 MOVL UNIT, R3 > 1591. 

0B 18 00009 EQ : 

7E 006 8F 9A 00008 MOVZBL #BASSK ILLIO_CHA, -(SP) : 
000000006 00 01 FB OO0OF CALLS BASSSSTOP : | 
7E 0c Ag 7D 00016 1$: MOVO 1girm » =(SP) + 1599) 

53 DS OOOIA TSTL OR : 

05 12 0001¢ BNEG 28 ; 

7E 07 CE OO01E MNEGL #7, -(SP) : 

02 11 9021 BRB 3$ ; 

53 DD 00023 38: PUSHL R3 ; 

1C DD 00025 3$: PUSHL #28 ; 
0000v CF 04 FB 90027 CALLS #4, BAS$$IO_BEG : | 
04 0002¢ RET ; 1601) 


; Routine Size: 45 bytes, Routine Base: _BASSCODE + 0000 


3; 305 1602 1 


—— 


ay 


H 8 
tgs} 1ecSep-i9ge 81:55:11 EeasetuesRe Seas 10Bé6.050; 1 See 


'¢ 
: If channel number is less than zero then it is an illegal channel. 


IF ( .UNIT LSS 0 ) THEN BASSSSTOP(BASS$K_ILLIO_CHA); 


rsSsSsssses 


'¢ 

! Perform default OPEN if UNIT not already opened. 

! Check for sagrover mixing of 1/0 statements. SIGNAL_STOP 
tore 1/0 statement type code. Cail 

level initialization. 


BAS$$10 BES (ISB$K_ST_TY_MLI, (IF (.UNIT EQL 0) THEN LUBSK_LUN_INPU ELSE .UNIT), .FMP CSFSL_SAVE_FPI, 
-FMP CSFSL_SAVE_PC)); 


. ony errors. 
uD 


PAPAIN & 
=—O OWN NEW “OC COwOu lwo 


; 307 1603 1 GLOBAL ROUTINE BASSMAT_LINPUT ( ! READ sequential List-directed 
; 38 16 1 T ! logical unit 
3 1605 1 ) : NOVALUE = 

; 310 16 1 

: 11 16 1 tee 

; \§ 16 1 ! ABSTRACT: 

; 51 16 1! 

3 14 1919 1! Initialize the BASIC 1/0 system to perform 
; i 13) : : a@ READ sequential List-directed. 

3 i$ 1818 1 ! FORMAL PARAMETERS: 

3 18 191% 1! 

; Y 1212 : } UNIT. rl.v Logical unit number 

3 1 1819 1 ! IMPLICIT INPUTS: 

3 ¢ 1618 1! 

3 1619 1! NONE 

3 4 1620 1! 

3 5 1621 1 =! IMPLICIT OUTPUTS: 

: $ 16 § 1! 

3 16 1! NONE 

3 8 16246 1! 

3 9 1625 1 ! ROUTINE VALUE: 

3 16 $ 1! 

: 1 16 1! NONE 

r ¢ 1628 1! 

5 Mb ; : SIDE EFFECTS: 

3 5 1631 1! LUB/ISB/RAB control blocks allocated and file 
: § ' : opened if not already. SIGNAL_STOPs many errors. 
; $ 16 1 

3 9 1635 BEGIN 

: 4 1636 

; 1637 BUILTIN 

5 1638 FP; 

3 163 

3 1 LOCAL 

: : FMP : REF BLOCK C, BYTE); 

8 ; FMP = .FP; 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 : 

3 1 

3 1 

3 1 


NOUS WN —OOONOUE WN OO 


PAOOAAAD 
PAA 


— 


8 

BAS$10_BEG Ld -1984 5 AX=11 Bliss-32 v4.0-7%4 P 9 
wits) a 1e-Sep-1984 90: Ha #7 YBASRTL® SRC JBASIOBEG.B32;1 OF ai 
000 ENTRY BASSMAT _LINPUT, Save R2,R3 : 1603 
5 SD D 099 MOVL FP, FMP + 1643 
04 AC p a008 Ov it, R3 + 1647 

43 006 tf 9A 9008 MOVZBL BBASSK I L10, CHA, (SP) : 

000000006 Q FB OOOOF CALLS , BASS ; 
E 0c A , 0016 1$: nova "3 (FMP), 4 4 + 1655 

5 1 goic BNEO 2s ; 

7E c 3 MNEGL 4&7, =(SP) : 

00 BRB 3 ; 

DD 0 33 PUSHL F 

DD 00025 3$ PUSHL #50 ; 
0000v CF 4 FB 000 CALLS #4, BAS$$IO_BEG ; | 
04 0002C RET t 1657 


; Routine Size: 45 bytes, Routine Base: _BASSCODE + 002D 


; 362 1658 1 


———————_—____————_— 


8 

AS$10_BEG 18-Sep-1984 00:39:25  VAX=11 BLiss-32 v6.0-74 
pAseh 12-808 -198e 90:33:43 YBASRTL SRE BASIE G.35;1 
; 1659 1 GLOBAL ROUTINE BASSREAD ' REA 

. 65 1999 ; : NOVALUE = nites 

; 166 1 t+ 

; 1997 : : ABSTRACT: 

; 1665 1: Initialize the BASIC 1/0 system to perform 

; 1286 : : a READ of a compile time initialized DATA area. 

; 1668 | i FORMAL PAREMETERS: 

: gee 

: lore } IMPLICIT INPUTS: 

3 1674 i ; R11orl.v pointer to most recent Basic major frame 
; 8 1676 i IMPLICIT OUTPUTS: 

3 88 1078 : ; ISBSL_MAJ_F_PTR Basic major frame pointer 

3 85 1680 ROUTINE VALUE: 

See BE ieee 

; 89 1684 i SIDE EFFECTS: 

; 91 1686 ; LUB/ISB/RAB control blocks allocated and file 

3 ! ene no r . 

i 398 1688 1 i-- " ei ny 

; 394 1689 1 

: 44 1639 BEGIN 

: 397 1698 BUILTIN 

; 398 169 FP; 

: £80 1695 LOCAL 

: 401 1696 FMP : REF BLOCK C, BYTE); 

: 40 169 

3 ret ions FMP = .FP; 

: 405 1900 i Perform default OPEN if UNIT not already opened. 

3 £06 1701 ! Check for improper mixing of 1/0 statements. SIGNAL_STOP 

; 40 1708 : ony errors. fore 1/0 statement type code. Call 

: rts 4 UDF level initialization. 

3 410 1705 BASS$10_BEG (ISBSK_ST_TY_REA, LUBSK_LUN_BREAD, .FMP CSFSL_SAVE_FP], .FMP CSFSL_SAVE_PC)); 


0000 00000 ENTRY BASSREAD, Save nothing 
0 50 b0 00 MOVL FP, FMP 
E 0c a0 7D 0000 MOVO 12¢FMP), =(SP) 
7E 06 CE 00009 MNEGL #6, =(SP) 


Page A 


5) 


Neer — . 


‘pgyo.ses HEcstortaue QO:HRTT WALL OLteGeHe OZ, ave 


DD 8 C PUSHL #34 
FB CALLS #4, BAS$$10_BEG 
04 0001 RET 


; Routine Size: 20 bytes, Routine Base: _BASSCODE + OOSA 


SN 


0000v CF ; 
3; 1706 


; 412 1707 (1 


-———--—-----) ———-——---—- -- -- 


| we 
PAS$10,8t6 IS-Sep-1984 00:59:28 YAK-1 BL igg=52 v4. 0-762 | 


; 616 17 1 GLOBAL ROUTINE BASSMAT_READ ' MAT REA 
3 oi? 1709 : : NOVALUE = - ne 
; “19 iF 1 !e4 

He 2 Hed | Hoos 

: 420 1714 1 Initialize the BASIC 1/0 system to perform 

; ? : 17 ! READ of a compile time initialized DATA area. 
coe 1717 1 | FORMAL PAREMETERS: 

; 626 1718 1! 

3 : 5 171? } NONE 

; 4 ; v7 1 IMPLICIT INPUTS: 

3 : 9 1 § ; R11.rl.v pointer to most recent Basic major frame 
: 431 1? 5 IMPLICIT OUTPUTS: 

3 a38 Ht ; : ISBSL_MAJ_F_PTR Basic major frame pointer 
: 435 1729 1! ROUTINE VALUE: 

; 4 1730 1 

Sed Gt am 

; 439 7 5 i i SIDE EFFECTS: 

: 441 1735 1: LUB/ISB/RAB control blocks allocated and file 

3; 44 17 1} opened if not already. 

: 44 1737 1 ine 

: 666 1738 #1 

; 445 1739 BEGIN 

3; 4466 1740 

; 667 1741 BUILTIN 

; 6468 Hk FP; 

: 48 ipa LOCAL 

+ 451 1745 FMP : REF BLOCK C, BYTE); 

3; 45 Ho 

: 482 mine 

3 + 

; 4455 1749 i Perform default OPEN if UNIT not already opened 

; 456 1750 ! Check ae im reper mixing of 1/0 statements. SIGNAL STOP 
: 657 173) i ony or rors. ore 1/0 statement type code. Call 

: $38 1736 UDF Level initiol zation. 

: 460 1754 : BASS$$IO_BEG (ISBSK_ST_TY MRE LUBSK_LUN_ BREAD FMP CSFSL_SAVE_FP], .FMP CSFSL_SAVE_PC]); 
; 461 1755 1 END; { end of BASSMAT_READ 


0000 608 -ENTRY pasenss READ, Save nothing 
50 5D 00 0000 MOVL FMP™ 
7E 0c AO 7D 9000 MOV TO tEMPD -(SP) 
7E 06 CE 00009 MNEGL #6, =(SP) 


| m 8 
HAg8}°.8ES Ve=Sep=1382 PPi88i4} — YASRT ESR eas OeEG- 689; 1 
0000v CF ae PB 20005 CALLS vee BAS$$10_BEG 
04 0001 RET 
; Routine Size: 20 bytes, Routine Base: _BASSCODE + 006E 


; 462 1756 1 


Page 13. 
a 


1755. 


egtjo.nc 


> 464 1757 
; 465 1728 
; rt 175 

> 46 1760 
; 468 1761 
; 469 1796 
; 470 176 

; 471 1764 
3 47 1765 
> 47 1798 
: 474 176 

> 475 1768 
; 476 1769 
; 477 1770 
; 478 1771 
; 479 Vite 
: 480 177 

; 481 1774 
; 48 1775 
> 48 1776 
> 484 1777 
> 485 1778 
> 486 1779 
: 487 1780 
; 488 1781 
; 489 A 
: 490 178 

: 491 1784 
> 492 1785 
; 493 1786 
; 494 1787 
z 495 1788 
: 496 1789 
: 497 1790 
; 498 1791 
; 499 1792 
: 500 1793 
: 501 1794 
; 350 1795 
: 50 1796 
> 5304 1797 
: 505 1798 
: 506 1799 
; 207 1800 
: 508 1801 
3 209 1308 
: 510 180 

: 511 1804 
; 21g 1805 
3 3 1306 
: 514 1807 
s 312 1808 
: 516 1809 
: fer 1810 
; 518 1811 


=—PIPINPINININININININIPINPINININIPIPIPINIDIDIR) 8 0 0 


nN 8 
16-Sep-1984 00:39:25 AX-11 Bliss-32 V4.0-74 
132800= 1386 9: 32:43 t 
GLOBAL ROUTINE BASSINPUT_LINE ( ! READ sequential list-directed 
NIT ! logical unit 


)°: NOVALUE = 
' 


lee 
ABSTRACT: 


Initialize the BASIC 1/0 system to perform 
a READ sequential List-directed. 


1 

1 

i 

i FORMAL PAREMETERS: 

UNIT. rl.v logical unit number 
IMPLICIT INPUTS: 

: NONE 

IMPLICIT OUTPUTS: 

NONE 

ROUTINE VALUE: 

NONE 

SIDE EFFECTS: 

; 

' 
i] 


LUB/ISB/RAB control blocks a 


Llocated and file 
opened if not already. SIGNAL 


loc 
_STOPS many errors. 
BEGIN 
BUILTIN 
FP; 
LOCAL 
FMP : REF BLOCK C, BYTE); 
a FMP = .FP; 
If channel number is less than zero then it is an illegal channel. 
IF ( .UNIT LSS 0 ) THEN BASSS$STOP(BAS$K_ILLIO_CHA); 
'¢ 
! Perform default OPEN if UNIT not already opened. 
! Check for magreper mixing of 1/0 statements. 1 terteecaiad 


' 
a 
: ony errors, Store 1/0 statement type code. Ca 
! UDF level initialization. 


SFSL_SAVE_PTI); 
END; 


BASRTL.SRCJBASI0BEG.832;1 


Page 14 
’ (7) 


BASSE 10 OES (ISBSK_ ST TY_INL, (IF (.UNIT EQL 0) THEN LUBSK_LUN_INPU ELSE .UNIT), .FMP CSFSL_SAVE_FP), 


000C 00000 

5 5D DO 0000 

5 046 AC » 000 

0B 18 00009 

7E 00G 8F 9A Bane 
000000006 00 01 FB OO00F 
7E OC A2 70 00016 

3 aun 

nm ORR 

83 DD 00023 

0 0D 00025 

0000v CF 4 FB OnSe 
04 0002C 


; Routine Size: 45 bytes, Routine Base: _BASSCODE + 0082 


3s 319 1812 1 


ee ee en oe ee ee 


— 
Lad 
o 


wr 


bad 


wr 


pa19be 1135 


x eee Bliss-32 V4.0-74 
711 BASRTL.SRCJBASIOBEG.832;1 


BASSINPUT_LINE, Save R2,R3 
FP, FMP 

unit, R3 

#BASSK_ILLIO_CHA, (SP) 
#1, BASSS$STOP 

1ecrMP), =(SP) 


2$ 
#7, (SP) 
3$ 


R3 
#32 
#4, BAS$$I0_BEG 


—— 


-—-—_- - -- _ ——— - Se -——_—— 


9 
/BAS$10_BEG bese -1984 00:39:25 AX-11 Bliss-32 V4.0-74 Page 
Rett, 12280 0-1 3c 90:33:43 EBASRTL SRe BASIOBES.035:1 ’ 
3 1 1813 1 GLOBAL ROUTINE BASSINPUT ( ' READ sequential List-directed 
3 ¢ 1814 1 UNIT ! logical unit 

3 1815 1 ) : NOVALUE = 

3 4 1 1 1 

3 5 1817 1 !4+ 

; § : 18 : } ABSTRACT: 

3 8 1820 1! Initialize the BASIC 1/0 system to perform “ 
eS 4 : 1 1 a@ READ sequential List-directed. 

s ; 1 : 5 ! FORMAL PAREMETERS: 

3 g 18 oe et UNIT. rl.v Logical unit number 

> 534 1 8 2. 

; 535 18 1 ! IMPLICIT INPUTS: 

3; 3 1828 1! 

3 «OST 44 1! NONE 

; 538 1830 1! 

3; So 1831 1°! IMPLICIT OUTPUTS: 

; 540 1336 1! 

3 961 1833 1! NONE 

3 ae6 1834 1! 

3; 34 1835 1 ! ROUTINE VALUE: 

: 5446 1836 1! 

> 545 1837 1! NONE 

; 546 1838 1! 

; 547 1839 1°! SIDE EFFECTS: 

; 548 1840 1! 

; 549 1841 1! LUB/ISB/RAB control blocks allocated and file 

: 550 1866 1! opened if not already. SIGNAL_STOPs many errors. 

3 33) 18435 1 !-- 

3 226 1844 1 

: oe 1845 2 BEGIN 

> 554 1846 § 

3 395 1847 BUILTIN 

; 228 1848 § FP; 

; Dor 1849 

; 558 1850 2 LOCAL 

; 559 1851 2 FMP : REF BLOCK C, BYTE); 

: 560 1336 

; 561 185 FMP = .FP; 

; 266 1854 '¢ 

3 207 192? If channel number is less than zero then it is an illegal channel. 
; 565 1889 IF ( .UNIT LSS 0 ) THEN BASSS$STOP(BASS$K_ILLIO_CHA); 

; 266 1858 

; 56 1859 '¢ 

; 568 1860 ! Perform default OPEN if UNIT not already opened. 

; 569 1861 ! Check for apevoer mixing of 1/0 statements. SIGNAL_STOP 

: 570 1306 : ony errors. Store 1/0 statement type code. Call 

3 jf 186 ! UDF level initialization. 

: 276 1308 If the unit number is 0, then change it. 

5 a7 1808 BAS$$I10 BES (ISBSK_ST_TY_INP, CIF (.UNIT EQL 0) THEN LUBSK_LUN_INPU ELSE .UNIT), .FMP CSFSL_SAVE_FPJ, 
$ 27? +4 ¢ -FMP CSFS$L_SAVE_PT)); 


—rn 


——_------_______— 


Dd 
9A5$10_8€6 16-$ 
1-05 14S 


50 ps p00ee 
Bo RR BR 
08 18 00009 
000000006 6p 006 BT Ee por 
9 oc i O016 18: 
83 Sooie 
n tA isi 
: DD 000 2 q: 
Oo0OV CF of PB 80059 7 
Ae bo0s¢ 


; Routine Size: 45 bytes, Routine Base: _BASSCODE + OOAF 


3s S77 1869 1 


9 
enn 130% 90: 39:63 crest Bliss-32 V4.0-74 
ep-1984 11:55:11 BASRTL.SRCJBASIOBEG.B32;1 


BASSINPUT, Save R2,R3 
FP, FMP 


unit, R3 


#BASSK {LL 10 CHA, -(SP) 


#1, BASSSSTOP 
(FMP), =(SP) 


Wanrw— 
PUN 


#7, (SP) 

R 

#30 

#4, BAS$$10_BEG 


g 

AS$10_BEG ibese =1984 00:39:25 AX-11 Bliss-32 V4.0-74 Pa 18 | 
erty 12-808-1 986 90:32:97 EBASRTL SRE BAS 1 ObEG.O39;1 ww (9) 
; 579 1 yy 1 GLOBAL ROUT INE BASSANSI_INPUT ( ' READ sequential List-directed 
3 0 1871 #1 UNI ! Logical unit 

; 1 ! ie ! ) : NOVALUE = 
; 5 1874 1 146 
H ¢ ! Ne : ABSTRACT: 
: 86 1 55 1 i Initialize the BASIC 1/0 system to perforn 
s 38 1 A 1! a READ sequential List-directed. The only 
; 588 1879 1! difference between this ontey point and BASSINPUT 
; 589 1880 1! is that this one sets an ANS] flag in the LUB for 
3 rs 193) : : later error processing. 
: 59 1885 1 | FORMAL PAREMETERS: 
3; 1884 1! 
3 rl Ise? : UNIT. rl.v logical unit number 
; 536 1889 1 | IMPLICIT INPUTS: 
; 59 1888 #1! 
: 336 1890 1 | — 
: 600 1891 1°! IMPLICIT OUTPUTS: 
; 601 1996 1! 
: 3 1896} | seas 
> 604 1895 1 | ROUTINE VALUE: 
; 605 1896 1! 
: $09 1898 1 i — 
; 608 1899 i SIDE EFFECTS: 
3 610 1901 1: LUB/ISB/RAB control blocks allocated and file 
> 611 1902 1! opened if not already. SIGNAL_STOPs many errors. 
5 oi¢ 1905 1 !-- 
3; «61 1904 1 
3 ei8 120% BEGIN 
; 616 1909 BUILTIN 
: 61 1908 FP; 
; e8 1919 LOCAL 
; 620 1911 FMP : REF BLOCK C, BYTE): 
; 621 198 
3 e § ba ws FMP = .FP; 
: : 3 Hb a If channel number is less than zero then it is an illegal channel. 
; 626 1919 IF ( .UNIT LSS 0 ) THEN BASSSSTOP(BASS$K_ILLIO_CHA); 
. oeeier 
3 629 1920 i Perform default OPEN if UNIT not already opened. 
; 6 1921 ! Check for sagroper mixing of 1/0 statements. SIGNAL_STOP 

; 631 19 4 : ony errors. tore 1/0 statement type code. Cail 

:; 6 ¢ 19 ! UDF level initialization. 
; $3? 1998 If the unit number is 0, then change it. 
: 635 1926 BAS$$10_BEG (ISBSK_ST_TY_INP, (IF (.UNIT EQL 0) THEN LUBSK_LUN_INPU ELSE .UNIT), .FMP CSFSL_SAVE_FP), 


ee 
| 


gga b-sep-1 
3 $36 1387 ; aad CSFSL_SAVE_PC], 0, K_ANSI_FLAG); 
000¢ 000 
Bow BRB 
7 00G 8F vA $008 
000000006 06 1 FB OOF 
eB ule 
7E oc hs f gata 
53D 1 
33 12 000 
7 ? CE 000 
2¢ 11 38 
93 DD 00027 gs: 
1E€ DD 00029 3$: 
0000v CF 06 FB 00028 
04 00050 


; Routine Size: 49 bytes, Routine Base: _BASSCODE + O0DC 


; 638 1929 1 


14-Sep-1 


9c 10:55:11 UGASMtLeSneSeasr08eG-039; 1 


BASSANSI_INPUT, Save R2,R3 
NIT, R3 
goAsse L10, CHA, -(SP) 
BASSSST 


esp) 
ite, -(SP) 


#7, (SP) 

R3 

#30 

#6, BASS$$I0_BEG 


WRrww 
AISA 


Page 19 


(9) 


1928 | 


—__—_--—-- -- - —----——_--_--- --- senso ean 


} 


‘weshyo.nes iSeseo-196e 90:39:25 yateTT BLisg=52 we.0-742 Page, 20 


3 et 3 9 1 GLOBAL att a BASSMAT_INPUT ( ! MAT INPUT 

3 1 1 1 UNI ! Logical unit 
3 on6 13 ¢ } ) : NOVALUE = 

> 644 1934 1 !46 

FY oe? 13 5 : ABSTRACT: 

; ge9 1937 1 Initialize the BASIC 1/0 system to perform 

3 “3 3 : } the input of an array. The array is named in the element transmitter. 
; 6 : 1940 i FORMAL PAREMETERS: 

; 6 1942 1 UNIT. rly logical unit number 

3; 6 1948 1! 

; $28 Pg: : IMPLICIT INPUTS: 

; § 1946 1: NONE 

; $e9 199 | i 

; 658 + | 1 ! IMPLICIT OUTPUTS: 

; 659 194 1! 

eo ta ipa 

; 66¢ 1958 t ROUTINE VALUE: 

| eee te ee 

; 666 1956 i SIDE EFFECTS: 

: 668 1958 1: LUB/ISB/RAB control blocks allocated and file 

; 669 1959 1! opened if not already. SIGNAL_STOPs many errors. 

; 670 1960 1 !<- 

3 671 1961 1 

hoi eo 

> 674 1964 BUILTIN 

oe 1 ‘c 

: 677 1969 LOCAL 

; 678 1968 FMP : REF BLOCK C, BYTE); 

; 679 bs 44 

F eae 1974 rr Pw rn 

; ose 1976 : If channel number is less than zero then it is an illegal channel. 
; rch 197% IF ( .UNIT LSS 0 ) THEN BASSSSTOP(BASSK_ILLIO_CHA); 

: 685 1973 te 

: rey, 1997 i Perform default OPEN if UNIT not already opened. 

3; 688 1378 ! Check for improper mixing of 1/0 statements. SIGNAL_STOP 

3; 689 197 ! any errors. sore 1/0 statement type code. Call 

; 690 19. DOF level initialization. 

: +4 1 f the unit number is 0, then change it. 

; 69 19 § : BASS$10_ BEG (ISBSK_ST_TY_MIN, (IF (.UNIT EQL 0) THEN LUBSK_LUN_INPU ELSE .UNIT), .FMP CSFSL_SAVE_FPI, 
; 694 sae -FMP CSFSL_SAVE_PC); 

3; 695 1985 ND; ! End of BASSMAT_INPUT 


—_ —_—----—- ------- a 7 oe 


H 9 
BAS$10_BEG 16-Sep-1984 00:39:25 AX-11 Bliss-32 V4.0-74 
mit) . 12-3 08- 1 3be 90:33:43 YBASRTL SRE BAS 1NBEG. 039; 1 
000¢ 00000 -ENTRY BASSMAT_INPUT, Save R2,R3 
26 5D 00 si MOVL FP, FMP 
5 04 AC D0 0005 Ov UNIT, R3 
7E 006 8F 9A 0000B MOVZBL M#BASS$K_ILLIO_CHA, =(SP) 
000000006 00 01 FB O000F CALLS #1, BASSS$STOP 
7E 0c 33 03 paee 18: move ea -(SP) 
1 bole BNEG =. 28 
7E ? cE oor MNEGL a7. -(SP) 
: DD 000 38: PUSHL R3 
0 DD 00025 3$: PUSHL #48 
0000v CF 4 FB 000 CALLS #4, BAS$$IO_BEG 
04 0002¢ RE 


; Routine Size: 45 bytes, Routine Base: _BASSCODE + 010D 


; 696 1986 1 


1985, 


————___-----—_--—-—-—-—--- 


9 
$10_BEG ibese =1984 00:39:25 AX-11 Bliss-32 V4.0-74 Pa 

88 12-808 - 1984 90:32:47 YBASRTL Se BAS 1OBE S039: 1 0 495 
; 698 1987 1 GLOBAL ROUTINE BASSPRINT ( ' WRITE sequential List-directed 
PT as Bike adore 

; +63 1994 i lee 

3 20 199¢ ! i ABSTRACT: 

: 10 199% 1: Initialize the BASIC 1/0 system to perform 

: re Mb ad : a@ PRINT sequential list-directed. 

; 708 1997 | FORMAL PAREMETERS: 

3 at} 1994 i UNIT.rl.w logical unit number 

: 71 001 1) IMPLICIT INPUTS: 

; 18 002 1: 

Chios: eral = 

i 218 005 1 j IMPLICIT OUTPUTS: 

oie fe ipeee 

: 720 009 1 ! ROUTINE VALUE: 

: ig 4 bee 

: 7 : 012 1: 

3 i O18 i SIDE EFFECTS: 

: 726 015 1: LUB/ISB/RAB control blocks allocated and file 

: g i 818 ; } opened if not already. SIGNAL_STOPs many errors 

: 729 018 17 

3 , O19 BEGIN 

; 7 021 BUILTIN 

3 738 Ose FP; 

> 735 024 LOCAL 

@ é 9 5 FMP : REF BLOCK C, BYTE); 

: 0 5 FMP = .FP; 

; 739 ose '¢ 

: oy 4 : If channel number is less than zero then it is an illegal channel. 

3 r ° 1 "JF ( UNIT LSS 0 ) THEN BASSSSTOP(BASSK_ILLIO_CHA); 

+ Phe 0 5 BAS$$10 BEG (1SBSK_ST_TY_PRI, (IF (.UNIT EQL 0) THEN LUBSK_LUN_BPRI ELSE .UNIT), .FMP CSFSL_SAVE_FP), 
> 745 3034 FMP CSFSL_SAVE_PT))? 

: 746 035 ND; ! End of BASSPRINT 


000¢ 000 .ENTRY BASSPRINT, Save R2,R3 : 1987 
5 5D 06 00 ; MOVL FP, FMP : 087 
04 AC 00 0000 MOVL UNIT, R3 > 2031 


rr 
| 


‘eso. 


; Routine Size: 


747 


05 
000000006 9 
7E 


0000v CF 


45 bytes, Routine Base: 


2036 1 


ibeseoct9ge 00:59:25 — yatctt Biss 


1$ 
FeStscHu cm 


Ve 
a 


-BASSCODE + 013A 


Le tFMP), -(SP) 
R 


2s 
#8, (SP) 
3 


R 
#27 
#4, BAS$$I0_BEG 


Page 49} 


2033 


: 2035. 


—D———  — 


Kk 9 
AS$10_BEG 16-Sep-1 2:39:25 AX-11 Bliss-32 V4.0-74 Pa 4 

pAseh oa 1o-88=138e 90:32:97 YBASRTL SRe BAINES .089:1 9 435 
; 7469 7 1 GLOBAL ROUTINE BASSANSI_PRINT ( ! WRITE sequential List-directed 
. 7 ? 3 1 ' to ANSI] standards 
ar 1 UNIT ! Logical unit 

3 7 § ? 1 ) : NOVALUE = 

 » 1 

3; 756 § 1 tee 

3 4 5 i : ABSTRACT: 

: 7 : 5 1: Initialize the BASIC 1/0 system to perform 

; 758 $ 1! @ PRINT sequential List-directed. The onty 

; 759 1! difference between this ots point and BASSPRINT 

; 760 Bee 1! is that this one sets an ANSI flag in the LUB for 

3 re ed : } later error processing. 

; 763 091 | FORMAL PAREMETERS: 

; oe? 038 : UNIT. rl.v Logical unit number 

; reo 055 1 ' IMPLICIT INPUTS: 

3; 768 B28 2 

ie ea 

; 44 059 { IMPLICIT OUTPUTS: 

| i or 

> 775 $88 1! ROUTINE VALUE: 

: 776 064 1! 

: Oe S66 1 i — 

; 179 067 i SIDE EFFECTS: 

: 781 069 1! LUB/ISB/RAB control blocks allocated and file 

: % Bry : opened if not already. SIGNAL_STOPs many errors 

: 784 072 1 

; oe? O78 BEGIN 

> 787 075 BUILTIN 

- < 

: 790 078 LOCAL 

: ad 444 FMP : REF BLOCK C, BYTE); 

; 198 O81 FMP = FP; 

. ‘¢ 

F ak] O88 : If channel number is less than zero then it is an illegal channel. 

: ade ° 5 IF ( .UNIT LSS 0 ) THEN BASSSSTOP(BASSK_ILLIO_CHA); 

; 0 BAS$$IO BFS (ISBSK_ST_TY_PRI, (IF (.UNIT EQL 0) THEN LUBSK_LUN_BPRI ELSE .UNIT), .FMP CSFSL_SAVE_FPJ, 
; 088 -FMP CSFSL_SAVE_PT),~0, K_ANSI_FLAG); 

; 801 089 ND; ! End of BASSANSI_PRINT 


ey 


ee se 


eagyo.see 


3; Routine Size: 49 bytes, 


; 802 2090 1 


38 


65 
000000006 0 
7E 


7E 


0000v CF 


Routine Base: 


-Sep-1 Ax-11 Blis Pp 5 
1B-Sen-1986 00:59:25 yanctt BLisgcSz v6. 0-742 | a0e 2 
000 ENTRY BASSANSI_PRINT, Save R2,R3 3 37 
5D D MOVL Pp te * : 81 
06 AC p MOVL unit, R3 : 2085 
8 GEQ 3 
006 F OA MOVZBL a? {Lio CHA, -(SP) : 
1 FB fF CALLS BAS 3 
2 oO ig 18: PUSHL : 2087 
4 1 CLRL -(SP) 3 
0c A 1A MOVva i fle, -(SP) : 
5 D 1 TSTL R : 
1 BNEQ oe 3 
4 MNEGL #8, -(SP) i 
00 BRB 3$ : 
DD 000 $3: PUSHL R3 3 
1B DD 00029 3$: PUSHL #27 3 
06 FB 000 8 CALLS #6, BAS$$I0_BEG F | 
04 000 ET ; 2089 
_BASSCODE + 0167 


a 9 
BAS$10_BEG 16-Sep-1984 00:39:25 AX-11 Bliss-32 V4.0-74 Page 26 
wits) 13-88-1382 90:33:43 BASRTL’ $ReIBASI OBES 03551 . 1% 
; 804 93) 1 GLOBAL ROUTINE BASSMAT_PRINT ( ! MAT PRINT 
3 td 88 1 NIT ' logical unit 
; 0¢ 093 1 UPPER_BOUND1, i No. of columns 
; 80 094 1 UPPER _BOUND2 ! No. of rows 
; 808 095 (1 ) : NOVALOE = 
; 809 4 1 
: Bi O98 | | ABSTRACT 
3 oi¢ $38 1! 
; 81 100 1! Initialize the BASIC 1/0 system to perform 
3 sie 19 : the printing of a matrix 
; Rie 19 1 ! FORMAL PAREMETERS: 
: 817 104 1! 
; 818 105 7! UNIT. rl.v logical unit number 
; 819 198 1: UPPER_BOUND1.rl.v no. of columns 
; 530 + 4 ; UPPER_BOUND2.rl.v no. of rows 
3 B56 109 1°! IMPLICIT INPUTS: 
; 82 110 1! 
; 824 2111 1! NONE 
; 825 ig 1! 
: See 11 1 ! IMPLICIT OUTPUTS: 
; 82 1144 #17! 
; 828 sii? 1! NONE 
; 829 11464 1! 
; 830 2117 +1 =! ROUTINE VALUE: 
; 831 2118 1! 
s B32 2119 1! NONE 
: 833 2120 1! 
3 «64834 2121 1 ! SIDE EFFECTS: 
3 835 $158 1! 
; 836 21 iz LUB/ISB/RAB control blocks allocated and file 
3 837 $1S¢ 1! opened if not already. SIGNAL_STOPs many errors 
; 838 2125 1 !<= 
: 839 $is$ 1 
: 840 127 2 BEGIN 
; «841 2128 § 
3 aoe sig? BUILTIN 
3; «84 130 FP; 
3: 844 131 
3; «4845 136 LOCAL 
3; 846 13 FMP : REF BLOCK C, BYTE); 
: th 13 
3 48 135 FMP = .FP; 
; 649 136 '¢ 
; 330 tt If channel number is less than zero then it is an illegal channel. 
: 836 + 4 If ( .UNIT LSS 0 ) THEN BASSSSTOP(BASSK_ILLIO_CHA); 
3: «854 141 BAS$$10_ BEG (ISBSK_ST_TY_MPR, (IF (.UNIT EQL 0) THEN LUBSK_LUN_BPRI ELSE .UNIT), .FMP CSFSL_SAVE_FP), 
; 855 14¢ -FMP CSFSL_SAVE_PCJ); 
: 856 14 1 ND; ! End of BASSMAT_PRINT 


paggjose 


3; Routine Size: 


s 657 


nN 9 
1eoSep-19Be 11:58:11 EBASRILeSRESeASrO8EG.6 


000 

5 a Be 

Ee 

7E 006 $8 9A $5008 

000000006 90 01 FB OO00F 
E 0c 4 70 Borg 1$: 

5 3 OO1A 

05 12 0001C 

7E 08 CE OOO1E 

06 11 8 1 
DD 00023 ¢: 
35 DD 00025 3$: 

0000v CF 04 FB 00027 

04 0002C 


45 bytes, ‘Routine Base: _BASSCODE + 0198 


2144 1 


BASSMAT_PRINT, Save R2,R3 
FP, FMP 

UNIT, R3 
#BASSK_ILLIO_CHA, -(SP) 


#1, BASSSSTOP 
LecFnP) (SP) 


y 
#4, BAS$$IO_BEG 


re 


10 
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'¢ 
If channel number is less than zero then it is an illegal channel. 


IF ( .UNIT LSS 0 ) THEN BASS$STOP(BASSK_ILLIO_CHA); 


'¢ 


; 59 145 1 GLOBAL ROUTINE BASSPRINT_USING ( ! WRITE formatted 
; 860 148 1 UN ' Logical unit 
; 861 147 1 FORMAT_STRING i format string 
; 86 148 1! CURRENCY ' currency symbol for this stmt 
; 86 149 13 SEPARATOR i digit group separator 
3 864 130 1 i DECIMAL_POINT i decimal point 
; 865 151.=«1 ) : NOVALUE = 

; 86 136 1 

; 86 12 1 44 

; 868 154 1 ! ABSTRACT: 

; 869 155 1! : 

; 870 1 $ 1! Initialize the BASIC 1/0 system to perform 

; 48 13f ; a PRINT USING formatted output statement. 

3; 87 159 1 ! FORMAL PAREMETERS: 

3; 874 160 1! 

; 875 161 1! UNIT. rl.v logical unit number 

; 876 166 73 FORMAT_STR.rt.dx format string 

; 877 163 1! CURRENTY rt .dx optional currency symbol 

; 878 2164 1! SEPARATOR. rt.dx optional digit prove separator symbol 
; 57° $162 : DECIMAL_POINT.rt.dx optional decimal point symbol 

; 881 2167 1°! IMPLICIT INPUTS: 

; 88 $138 1! 

; 88 169 1! NONE 

> 884 170 1! 

; 885 171. 1°! IMPLICIT OUTPUTS: 

; 886 \7¢ 1! 

; 887 173 1! NONE 

; 888 2174 1! 

; 889 2175 1 ! ROUTINE VALUE: 

; 890 2176 1! 

; 891 2177 1! NONE 

: 892 2178 1! 

; 893 2179 1°! SIDE EFFECTS: 

> 894 2180 1! F 

: 895 gio, ¥-% LUB/ISB/RAB control blocks allocated and file 

: 896 $is¢ 1! opened if not already. SIGNAL_STOPs many errors 

; 897 2183 1 !-- 

; 898 2184 1 

; 899 2185 BEGIN 

; 900 186 

: 901 187 BUILTIN 

; 188 ACTUALCOUNT, 

: 90 189 FP; 

> 904 190 

; 905 191 LOCAL 

; 906 136 FMP : REF BLOCK C, BYTE); 

; 90 19 

: 90 194 FMP = .FP; 

; 195 

: 196 

: 197 

3 198 

3 199 

e 200 

3 201 


oovowovovd 
— —2 —) —s — — 
MPwN—O0O@~n 


-o | 


Pe See Oe Se Se Se Se Se Se SF Se Se SESH Se Se Se Se See See Se Oe Se Se oe 


| BAS$10_BEG 

$858)°- 
; 91 0 
: 3i$ g 
; 318 4 
5 333 5 
; 921 8$ 
3; 9 ¢ 08 
3; § 09 
3; 924 10 
3 5 1} 
: 359 18 
; 928 14 ! 
3 36) 15 ! 
; 9350 1 ! 
; «931 21 ! 
g 236 18 ! 
; 93 § 19 ! 
: 934 20 ! 
; 935 $1 ! 
; 936 2 ; ‘ 
3; 937 22 ! 
; 938 224 ! 
; 939 225 ! 
; 940 226 ! 
; 941 2e7 ! 
; 94 228 ! 
: 94 $$3 ! 
> 944 2230 2! 
; 945 2231 § ! 
3; 946 $536 ! 
: 947 2235 2 
; 948 2234 «(1 


; Routine Size: 48 bytes, 


| 


10 
CRETRRE PERAEWMGH deg ES 


14-Sep-19 


! Call the routine which will set up the 1/0 data base and initialize a 
few areas 


31 


Page 29 


(14) 


BAS$$10 BEG (ISBSK_ ST TY_PRU, (IF (.UNIT EQL 0) THEN LUBSK_LUN_BPRI ELSE .UNIT), .FMP CSFSL_SAVE_FPI, 


FMP CSFSL_SAVE_PTJ,~.FORMAT_STRING); 
14 


: Now set a few Print Using specific areas in the ISB. These are the currency 
symbol, the digit group separator, and the decimal point. 


CCB = .OTS$$A_CUR_LUB; 
CASE .ACTUAL_COUNT() FROM K_NONE TO K_DECIMAL_POINT OF 
K_NONE, OUTRANGE): 
Ck_CURRENCY): 
CCBLISB$] = . CURRENCY; 
ATOR]: 


CCBLISBS$) CURRENCY; 


ccB 1SB$] = .SEPARATOR; 
Ck_DECIMAL POINT): 
CCBCISB$] = .CURRENCY; 
CCBCISB$) = .SEPARATOR; 
CCBLISB$) = .DECIMAL_POINT; 
END; 
TEs; 
RETURN; : 
END; ! End of routine BASSPRINT_USING 
000c 00000 .ENTRY BASSPRINT_USING, Save R2,R3 
52 5D DO 00002 MOVL F 
53 04 AC DO 00005 MOVL UNIT, R3 
0B 18 00009 BGE 
7E 006 8F 9A 00008 MOVZBL #BASS$K_ILLIO CHA, -(SP) 
000000006 00 01 FB 9000F CALLS #1, BASSSSTOP 
08 AC DD 00016 1$: PUSHL FORMAT STRING 
7E 0c a 7D 00019 MOVQ (FMPY, =(SP) 
53 D5 0001D TSTL 
05 12 O0001F BNEQ 2 
7E 08 CE 00021 MNEGL #8, -(SP) 
08 11 00024 BRB 
DD 00026 as: PUSHL 
1F DD 00028 3$: PUSHL #31 
0000v CF 0S FB O00¢A CALLS #5, BAS$$I0_BEG 
04 0002F Less 


Routine Base: _BASSCODE + 01C5 


=m | 


tei 00:39:25 YAN=IT BLisg-32 v4.0-742 Page 30 


2235 1 


—_—_—-  - --- — _—— --—— _— —_—_ —__—_—__—_ —_— _- —_ —__ — 
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fap echoes QOIR@$ YASH Shenae ses O782 Page 43) 
. ' 
i 
i 
i 
i 
i 
! 


3; Wi 1 GLOBAL Rout IM BASS$10_BEG ( Do common 1/0 statement initialization 
3; ¥ ¢ 1 STTM_TYPE, Statement type - defined in ISB 
3; § 8 1 UNIT, Unit number (LUN) for this 1/0 statement 
: 954 1 FMP User's frame 

; 955 40 1 RESTART _PC, PC at which to restart 1/0 List 
; 9 $ 41 1 FORMAT_STR, Format string (for PRINT USING) 
; 9 ¢g 1 FLAGS Flags from INPUT, PRINT USING 

H 328 & 1 ) : NOVALUE = 

3; 44 1 14 

3 +44 $2 : FUNCTIONAL DESCRIPTION: 

3 306 of ! } Common 1/0 statement initialization: 

> 964 rk ,! 1. Setup a LUB/ISB/RAB control block for this logical unit 

> 965 30 3? if not setup already. 

3 208 51 7! - If unit not already OPEN, OPEN it. 

3; 26 1! . Check for incorrect mixing of 1/0 statements. 

$ oo8 3? : 4. Initialize values in the LUB/ISB/RAB 

; 970 55 1 ! FORMAL PARAMETERS: 

3; «971 2$ 1! 

; 97 ey ee STTM_TYPE.rl.v 1/0 statement type 

; W 58 1! UNIT. rl.v Logical unit number 

: 974 539 1! FMP.ra.v User's frame porater. for gece ine major frame address 
; 975 $60 73 RESTART _PC.ra.v Pointer to 1/0 List code, for restarts. 

3; Of er 1! FORMAT_STR.rt.dx Format oir we for write formatted 

3 97 $66 1! CFLAGS. rlu.v Flags from INPUT or PRINT USING F 

; 978 $° ;! 1= ere-con iled PRINT USING format string 

3 444 see ; 2 = ANSI INPUT (special error checking required) 
; #981 5so8 1 ! IMPLICIT INPUTS: 

3 oe6 $50 1! 

; 98 2c68 1! LUBSV_FORCIBLE Flag re a forcible device. 

; 984 2269 1! LUBSV_FORMATTED This unit has been specified for 

; #985 2270 1! formatted 1/0 by a previous OPEN 

; 986 e271 1! or default OPEN. } 

; 987 $i¢ 1! LUBSW_LUN logical unit number, if unit 

3; 988 e753 1! not os ready open 

; 989 274 1! LUBSV_OPENED This unit has been opened by a@ previous 

; 990 $$22 1! OPEN, or default OPEN (for READ/WRITE 

; 991 7661! OR ENDFILE). 

; 99 {i.e LUBS$V_OUTBUF _DR Flag to indicate that the output buffer has 

; 99 e78 1! valid data in it. 

3; 994 44 '? LUBSV_READ_ONLY This unit has been specified for 

; 995 80 1! pac toratan READs only by the current 

; 9% 281 1! PEN or CALL FDBSET. 

; 997 oes +t LUBSV_UNF ORMAT This unit has been specified for 

: 998 283 1! unformatted 1/0 by a previcus 

; .999 84 1! OPEN, DEFINE FILE, or default OPEN. 

: 1000 85 1! 

3; 1001 a6 1 ! IMPLICIT OUTPUTS: 

3 1O0e 2 1! 

; 100 » 33 ISBSB_SCALE_FAC Scale factor in range of -6 => 0. 

3 1004 89 1! 1SBSB-STTM_TYPE Statement type. Used as an index into the UDF 

3; 1005 90 1! level qtape ch tables. 

; 1006 : 2s ISBSV_DE_ENCODE ENCODE/DECODE being done 

; 100 292 1! LUBSA_BUF _PTR Pointer to next character in buffer. 


; 
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16-Sep-1984 00:39:25 AX-11 Bliss-32 V4.0-74 Page 32 
19-808- 1382 90:33:97 BASRTL SREIBASI OBES 63951 . 83 
LUBSA_BUF _END Pointer to end+! of buffer. 
LUBSL_LOG_RECNO Current lo + (or spanned) 
record number for sequential access 
files (needed for BACKSPACE of spanned 
records). Current FORTRAN direct 
ccess files 1 = first record. 
never spores. 
ISB8$B_ERR_NO FORTRAN 0. Last continuable error during statement 
LUBSV_10_ACTIVE Flag 1/0 active on this unit. 
ISBSW_FMT_LEN If object-time format, no. of char. 
allocated Synenical ty. Needed for deallocation 
ISBSA_FMT_BEG If object-time format, Adr. of first 


char in resultant format oreen- 
ISBSA_RESTARTPC PC at which to restart the I/0 List after 
certain errors. 


ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 


Allocates LUB/ISB/RAB if not already allocated for 
this unit. Opens logical unit if not already open. 
Pushes down old current LUB/ISB/RAB (if any) and sets 
OTSSS$A_CUR_LUB to new current LUB/ISB/RAB. 


Signals: 

ILLEGAL OR ILLOGICAL ACCESS 

NOTE: An assumption is made that a Print statement that ends with a comma 

or a semicolon and that is followed by an Input statement is actually intended 
as a prompt. The major implication is that there is not an error issued 

for trying to do output in the middle of input from a terminal format file 
(emphasis on file). Instead the contents of the Print buffer are thrown 

away if we are not inputting from a terminal device. 


BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


LITERAL 
K_FORMAT_STR = 5, ! Arg. No. of format string 
K-FLAGS_ARG = 6; ! Arg. No. of flags 

BUILTIN 
ACTUAL COUNT ; 


P 
FMP : REF BLOCK C, BYTE) FIELD (BSFSFCD); 
LOCAL 


'¢ 
! Temp CCB for copying the contents of the Print 
! buffer into the Prompt buffer if necessary 


— 
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10 
18-Sep-1986 0:39:25 
TEMP_CCB : REF BLOCK C, BYTE); 


! 
' Allocate LUB/ISB/RAB for unit if not already set 
!' Push down tke 1/0. - 
! Stores new LUB/ISB/RAB address in OTS Common OTS$$A_CUR_LUB. 
! If unit number out of range (LUBSK_ILUN_MIN:LUBSK_LON MAX) 
' SIGNAL BASS INVLOGUNI (32="INVALID™LOGICAL UNIT NOMBER') 
: Store signed unit number in LUBSW_LUN. 

BASSSCB_PUSH (.UNIT, LUBSK_ILUN_MIN); 


t 


AX=11 Oi legate V4 .0-74 
BASRTL.SRCJBASIOBEG.832; 1 


i Now that the data base for this logical unit has been found, store off 


! the pointer to the most recent Basic major frame in the IS8. 
; Also store the restart address. 


CCB CISBSA_RESTARTPC] = .RESTART_PC; 
= 


CCB CISBSA"MAJ_F_PTRI 
BEGIN 


IF (.FMP CBSFSA_HANDLER] EQLA BASSHANDLER) THEN .FMP CBSFSA_BASE_R11] ELSE 0 


END; 
CCB CISBSA_USER_FP) = .FMP; 
,, C08 CISBSBSTIMITYPE = ~STTM_TYPE; 


i Check for the optional flags ar ument. For ANSI INPUT, the ANSI flag in 
a 


!' the LUB should be set so t 
: errors differently. 


Z ACTUALCOUNT () EQL K_FLAGS_ARG 
CCB CLUBSV_ANSIJ = 1; 


'¢ 


the UDF and REC Level routines will handle 


i Check for READONLY with an output operation or VIRTUAL usage. Either error 


: signals ILLEGAL OR ILLOGICAL ACCESS. Set the BLOCK USE bi 


IF (.CCB CLUBSV_VA_USE) Eat 1) 
OR (.CCB CLUBSV_READ_ONLY] AND .STTM_TYPE) 


BASSSSTOP JOCBASSK_ILLILLACC); 
CCB CLUBSV_BLK_USE) = 1; 


heck to see if there is a format strin 


iv ACTUALCOUNT () EQL K_FORMAT_STR 
BEGIN 


P 
FORMAT_STR : REF BLOCK (8, BYTE); 


Cc ° 

If there is, store the address away in Pio places in the ISB. One copy is used 
by the write formatted routines to keep their place in the format string; the 
other is left pointing at the front of the string in case of reversion. 


Pa9e 43) 


SSS sss 


4 10 
BAS$10_BEG 16-Sep-1984 00:39:25 AX-11 Bliss-32 V4.0-74 Pa 
238) 10-388-1 982 SE BASRTL.SRCIBAS10BEG.B32; 1 9435 
1 0 CCB FISBSA_FMT PTR] = CCB F1sBSA_fnt BEG) = .FORMAT_STR [DSCSA_POINTER]; 
0 CCB CISBSWILEN-REMJ = CCB CISBSW_FATILEN] = -FORMATCSTR CDSCSW_LENGTHI; 
IF (CCB CLUBSU_LUN] EOL LUBSK_LUN, BREAD) 
BEGIN 
CCB ELUBSV FORMATTED) = 1; 
CCB CISBSV-DE_ENCODEI = 1; 


+ 


! direct (.REC_NO > 0) access 1/0 statement 

$ cooprg ing o whether this is a formatted or 

' unformatted (.FORMAT_ADR = 0) I/0 statement. Set 

! TYPE to ‘NEW’ or ‘OLB’ Gepending on whether this is 

! a write or read 1/0 statement. Note: Write statement type 
: + meee true, read are false. Any OPEN errors are 

! signaled. 


ELSE 
BEGIN 


So SS SS oo ae ae ee Se oe SS 
IAAI AI AIR Rorononononononony 2 2 ee 


@ 
ao 
n” 
So 
r] 
3s 
8 


i This is not a READ. Do an open default if not opened and unit 0. 
Then check the opened flag and signal an error if it is not set. 


FUN — OOONOUES WIN SO CONOULE WIN "OOO 


IF (( NOT .CCB CLUBS$V_OPENEDJ) AND (.UNIT LSS 0)) 
BASSSOPEN_ZERO (.FMP) 
LSE 


Sak ak lal hae ek ek et et et et et at et 


ee th ab ad ah ahve 
Wr SO 0Onou 


IF (.UNIT GTR 0) 
THEN 


'¢ 
: Set LUBSA_BUDDY_PTR unconditionally for units > 0 
; CCB CLUBSA_BUDDY_PTR] = .CCB; 


pee ny ee eee at tat Lat tet ot 5 
WN $9 OBNAVE WN 0 OBNOUES WN (OVD ODNOUSWN OO OONOU Sw 


'¢ 

: If, after all that, the LUB is not open, then either it is not 

! channel zero or something went wrong in the OPEN code. In either 
case, indicate an error. 


ADO 
monononononononononononony 
ae 
= 


SISARANASSSIESS 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$$STOP_IO (BASSK_IO_CHANOT); 


'¢ 
: roree 1/0 statements are permitted only on a terminal format or sequential 


IF (.CCB CLUBSV_NOTSEQORG]) THEN BASSS$STOP_IO (BASSK_TERFORFIL); 
END; 


ee ee ee ee ee Oe ee ee ee ee ed a nd ed ed wd od od 
NNN NNN SOOO 
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¢ 
Store off the scale factor. 


CCB CISBSB_SCALE_FAC] = BASSSSCALE_L_R1(.FMP); 


! 

! Check the Print buffer to see if there is valid data which has not been Put. 
! If there is valid data, then move it to the prenet buffer. This is done 

' now rather than at the qronent transmitter UDF or REC level so that if 

! there is a prompt associated with this Input, it will be concatenated to 
the contents of the Print buffer in the correct order. 
' 
' 
' 
' 


uw WreOe 


: We are able to look into LUBSA_BUDDY_PTR with great impugnity and not 
' worry about an access viotetion because if Print is not alread 
' ye is opened when Input 

$ open. 


TEMP_CCB = (IF (.CCB CLUBSA_BUDDY_PTR] NEQ 0) THEN .CCB CLUBSA_BUDDY_PTR] ELSE .CCB); 


Y opened, 
S opened; we cannot get to this point unless Input 


f this is a INPUT or LINPUT or INPUT LINE then clear prompt buffer size 

© prevent concatenation of prassts in case of “C and resume. 

lso zero print position of buddy unless previous PRINT terminator was 
semicolon or comma. 


IF .CCB CISBSB_STTM_TYPE] EQLU ISBSK_ST_T 
CCB CISBSB~STTM~TYPE) EQLU ISBSK~ST-T 
rence CESBSBLSTIMITYPED EQLU ISBSK>STZT 


BEGIN 
CCB CRABSB_PSZ) = 0; 
iat tia TEMP_C LUBSV_FORM can) teu 1 


TEMP_CCB PRINT_POS) = (IF . cB C r 
ey gyenP.cce CLOBSL_PRINT_ 


Y_LIN OR 
Y_INP OR 
Y_LINL 


SSLESRENSLSSELESRASLESE 


IF (.TEMP_CCB CLUBSV_OUTBUF_DR}) AND ((.CCB CISBSB_STTM_TYPE] NEQ ISBSK_ST_TY_PRI) AND (.CCB C 
won ISBSB_STTM_TYPE] NEG iSBSK_ST_TY_PRU)) 


BEGIN 
'¢ 


! Check to see if this is a terminal device. The contents of the Print 

! buffer are put into the prompt buffer only if this is a terminal device. 
! Otherwise, the contents of the Print buffer are thrown away. Note that 
: if we just forced a Print at this point, an error would result because 

: we would be attempting to write in the middle of a sequential file. 


DWNOULWN oO 


eet BL 4 4 


P 


IF (.CCB CLUBSV_TERM_DEV)) 
BEGIN 
'¢ 


i The Print buffer has valid data in it. Concatenate it to the Prompt 
! buffer. Clear the buffer aieey and format character flags. 
: Use OTSSSCOPY instead of CHSCOPY 


CHSCOPY ((. TEMP CCB CLUBSA py pe ~- .TEMP_CCB CLUBSA_BUF _BEG]), ! Source element size 
;TEMP_CCB CCUBSA_BUF BEG), ! Sourcé address 
: ! Fill character 
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3; 1 
3 7 
3 % 
3 
3 3 
3 7 
3% 
3 3 
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AS$10_BEG 1b-Se 1984 00:39:25 AX=-11 Bliss-32 V4.0-74 Pa 
ett 12-8 08-13be 90:33:43 YBASRTL SRE BAS 108EG.832;1 oe 136 
3; 1 4 (. TEMP_CCB CLUBSA_BUF_PTR] = .TEMP_CCB CLUBSA_BUF_BEG)), ! Destination element size 
3; 3 4 CCB CRABS PST) = cts ERABS| POF J) i ! Best nation address 

3; 1 4 cca CRABSB_PS7)~= .ccB CRABSB PSZ)~+ (.TEMP_CCB LUBSA_BUF _PTRJ] = .TEMP_CCB CLUBSA_BUF_BEG)); 
: 1239 4 TEMP_CCB CCUBSV_OUTBUF DR = 0; 

i] 40 3 TEMP-CCB CLUBSV=FORM_CRAR] = 0: 

: i 4g 4 Reset the Print buffer pointer now that is not ‘dirty’. 

: 1244 te TEMP CCB CLUBSA_BUF _PTR] = .TEMP_CCB CLUBSA_BUF _BEG); 

3: 1245 5 END; 

: i <3 2 END; 

> 1248 3 : 

3; 1249 é '¢ 

; 1250 ! Call appropriate User data formatted level of abstraction 

: : 3) : } (UDF level = level 2) initialization routine. 

; 1388 5 JSB_UDFO (BASSSAA_UDF_PRO + .BASSSAA_UDF_PRO [.CCB CISBS$B_STTM_TYPE] = ISBSK_BASSTTYLO + 1)); 

3; 1254 5 1 END; ! End of BAS$$10_BEG routine 


OFFC 00000 sENTRY BASSSIO_BEG, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 2236 


R 3 
59 000000006 00 9€ 00002 MOVAB BASS$STOP_IO, R9 : 
50 08 CE 00009 MNEGL #8, RO : 2361 
52 08 AC bO 0000C MOVL UNIT, R2 ; 
000000006 00 16 00010 JSB BASS$$CB_PUSH : 
FF44 CB 10 AC DO 00016 MOVL RESTART“PC, -188(CCB) : 2367. 
52 0¢ aC dO 0001C MOVL FMP : 2371 
50 000000006 00 9€ 000 9 MOVAB BAS$HANDLER, RO ; 
50 62 D1 000 CMPL = (R2), RO : | 
06 12 0002A BNEQ «soi : 
50 F4 A2 00 0002C MOVL  =12(R2), RO : 
9 11 000 BRB 2$ : 
D4 00032 1$ CLRL = RO : 
FF48 «CB 50 DO 00034 2$ MOVL RO, -184(CCB) + 2369. 
FF4C CB 52 po 039 MOVL R2. =180(CCB) : 2374) 
58 FF71 (CB F 00 MOVAB -143(CCB), RB + 2375 | 
68 06 AC 9 9004 VB STIM_TYPE. (R8) : 
06 6C 91 0004 CMPB ss AP) > #6 : 2381 
06 1 0 4A BNEQ 3$ : 
Al AB 10 8 4C BISB2 #16, -95(CCB) : 2383 
09 FF AB E 9990 3$: BLBS. -1(¢cB), 4$ + 2388 
08 FC 02 £1 00054 BBC #2, -4(€CB), 5$ : 2389, 
9 04 AC 9 0059 BLBC 8 =—-_-s ST fM_TYPE, 5$ F 
E 006 8F 9A 0005D 4$ MOVZBL #BASSK_ILLILLACC, -(SP) : 2391 
we & > BB dooss 5s GES Bie Ohsnes orto ? 2392 
Oe 6C Sf a968 C (AP), s : 2400 
1D 1 6 68 BNEQ 6$ : 
50 14 ac D 060 MOVL  FORMAT_STR, RO : 2407 
1 04 Ad 00 00071 MOVL  4(RO),7R1 : 
FF7C 36s CB 3! DO 00075 MOVL R11, -132(CCB) ; 
80 AB 1 D0 0007A MOVL 1. -128(CCB) : 
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50 3 MOVZWL (RO), R : 2408 
FF72 «CB $3 8 th MOVW = RO, “1 2ccee) : ¢ 
8D AB 0 MOVW RO. =115(CCB) : 
FFFA BF (6 AB 008A 6$ chew -58(CCB), #6 + 2611 
FD AB i 9 BISB2 #1, =3(CCB) + 2614 
96 AB 40 BF BISB2 #64, =106(CCB) + 2615 
4 98 BRB 11 + 2411 
10 FC «OAB COC 90 7$: BLBS  -4(CCB), 8$ + 2636 
08 AC 05 000A1 TSTL It : 
e oD Gong eo ent a + 2438 
000000006 00 4 re Bons CALLS a. BASSSOPEN_ZERO : 
08 ac d3 0081 8$: TSTL UNIT + 2461 
94 1 9084 BLEG F 
B8 AB B 06 086 MOVL CCB, -72(CCB) + 2446 
0 FC AB 3 OOBA 98: BLBS -4(¢CB), 10$ + 2454 
7E 006 8F 9A 0008 MOVZBL #BASSK io CHANOT, =(SP) : 
69 01 FB 000C CALLS #1, BAS$$STOP_IO ; 
07 Al AB 03 gl 00CS 10$:  8BC #3, -95(CCB), 11 + 2461 
7E 006 8F 9A OOOCA MOVZBL #BASS$K_TERFORFIL, -(SP) : 
69 01 FB OOCE CALLS #1, BASS$STOP_IO : 
50 38 DO 00001 11$:  MOVL 2. RO + 2467 
000000006 g 16 00004 JSB BASSSSCALE_L_R1 F 
FF70 CB 0 90 O00DA MOVB RO =144 (COBY ; 
B8 AB D3 9000F TSTL -70(CCB) + 2479 
06 13 0002 BEQL 128 ; 
56 BB a8 DO 000E4 MOVL =72(CCB), TEMP_CCB ; 
9 11 000E8 BRB 13$ ; 
56 DO OOOEA 128: MOVL CCB, TEMP_CCB : 
iC 68 91 OOOED 13$: cCMPB (RBS, #28 : 2487 
OA 13 OOF BEQL 14$ : 
1€ 68 91 000F a.) (RB), #30 : 2488 
05 13 000F BEQL 14$ ; 
20 68 91 000F7 CM (RB), #32 > 2489 | 
14 12 OOF A BNEQ 17$ ; 
34 Ag 94 OOOFC 148 CLRBSS (ccB) + 249 
06 FE AG 02 €1 OOOFF BBC #2, -2¢TEMP_CCB), 15$ > 249 
50 C8 A6 DO 0104 MOVL  =S6(TEMP_CCB), RO + 2494 
11 00108 BRB 16$ ; 
D4 1 A 158: CLRL OR > 2493 
(8 Ab DO 0010¢ 16 : MOVL RO, -S6(TEMP_CCB) ; 
2F FE A6 0 Fi 9119 17$: BBC 5 ~2¢TEMP_CCB), 18$ : 2498 
1B $ 1 0011 CMPB sé RB), #2 : 
A 13 00118 BEQL 18% : 
1F 91 OO11A CMPB =s«(RB), #31 : 2499. 
13 0011D BEQL igs ; 
20 Fe AB et O11F BBC #5, -2(CCB), 18$ > 2510 
7 BO Ab c MG 124 SUBL3 = &cTEMP_¢CB), ~80(TEMP_CCB), R7 > 2518 
50 4 AB 9A OO12A MOVZBL 52(CCB),"R + 2522 
50 0 Ag 1 ADDL2 48(CCB). RO ; | 
60 C B86 01 moves = R7, $568 cTEMP_ccB), (RO) ; 
4 AB 7 1 ADDB2 R77. 52(CCB) : 25 3 
FE AG C BA 001 BICB2 #12, -2(TEMP_CCB) : 2525. 
BO A BC ag po 13F MOVL  ~68(TEMP_CCBY, -80(TEMP_CCB) > 2509 
5 68 9A 00144 188 MOVZBL (RB), RO : 2538. 
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; Routine Size: 343 bytes, Routine Base: _BASSCODE + O1FS 


; 1255 249 1 

3 1 23 41 1 END ! End of BASSIO_BEG module 

. é 2tg 1 

3; 1258 545 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

t _BASSCODE 844 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


en) EE cation Symbols -------- Pages Processing 

s File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 ‘ 0 581 00:01.2 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=L1S$:BASIOBEG/OBJ=0BJ$:BASIOBEG MSRC$:BASIOBEG/UPDATE=(ENHS$:BASIOBEG) 


3; Size: 844 08°96.3 + 0 data bytes 
3; Run Time 

3; Elapsed Tine: 06: ig) 3 

3 Lines/CPU Min 

3 Lexenes/CPU-Rin; 2 be 

3 Y Used: 223 pages 

Z omnes ation Complete 
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